Magnum One/Magnum One (Mid-American Digital) (Disc Manufacturing).iso/d22/ds320.arc/MS_MOUSE.DEF

Text File | 1989-02-09 | 16.9 KB | 365 lines

;
;       Directory Scanner, Ver. 3.00, Microsoft pop-up mouse menus
;       by Cy Phillips 7-6-86, Revised 12-2-86, 1-18-87, 2-28-87,
;       4-25-87, 6-26-87.
;       Copyright (c) 1986, 1987 by Cy Phillips, all rights reserved.
;       This program is intended for non-commercial, public domain use,
;       and may be used, copied, and distributed subject to this license.
;       The program is supplied "AS IS," and without any warranties,
;       express or implied, including fitness or suitability for a
;       particular purpose.  Please direct all questions, suggestions,
;       and problem reports to the author at:
;
;       Home: 608 Falmouth Drive   Office: McGuire, Woods, Battle & Boothe
;             Falmouth, VA  22405          P.O. Box 9346
;                                          McLean, VA  22102
;       Telephones: Home [phone]; Office [phone]
;       GEnie mail address: CPHILLIPS
;

;       Set up initial labels for mouse commands

        begin lfbtn,rtbtn,btbtn,lfmot,rtmot,upmot,dnmot,4,8

;       -------------------- Left Button ---------------------------

lfbtn: match 25,29,,"Press any key to",ent,lfbtn2  ;Check for continue prompt
lfbtn2: match 24,4,,"FILE ATTRIB",ent,lfbtn3       ;Check for file attributes prompt
lfbtn3: match 24,4,,"DIR ATTRIB",ent,lfbtn4        ;Check for directory attributes prompt
lfbtn4: match 24,3,,"COLOR",ent,lfbtn5             ;Check for color changes prompt
lfbtn5: match 23,1,,"To return to",ent,lfbtn6      ;Check for command prompt
lfbtn6: match 24,4,,"COPY TAGGED",ent,lfbtn7       ;Check for copy tagged prompt
lfbtn7: match 24,3,,"DRIVE CHANGE",ent,lfbtn8      ;Check for drive change prompt
lfbtn8: match 24,3,,"DELETE",ent,lfbtn9            ;Check for delete tagged prompt
lfbtn9: match 24,5,,"FIND FILE",ent,lfbtn10        ;Check for find file prompt
lfbtn10: match 25,1,,"Files",ent,lfbtn11           ;Check for program limits prompt
lfbtn11: match 24,4,,"MOVE",ent,lfbtn12            ;Check for move tagged files prompt
lfbtn12: match 24,4,,"RENAME",ent,lfbtn13          ;Check for rename prompt
lfbtn13: match 24,3,,"SELECT",ent,lfbtn14          ;Check for select/sort prompt
lfbtn14: match 24,3,,"EXECUTE",ent,lfbtn15         ;Check for execute files prompt
lfbtn15: match 25,1,,"DS Ver",ent,lfbtn16          ;Check for help screen
lfbtn16: match 24,1,,"ESC",ent,lfbtn17             ;Check for linking directories option
lfbtn17: match 24,3,,"F10",ent,lfbtn18             ;Check for macros option
lfbtn18: match 22,3,,"CR",ent,lfbtn19              ;Check for change editor/lister option
ent: type 13                                       ;Yes - Type enter
lfbtn19: match 25,1,,"Command",ext,lfbtn20         ;Check for list prompt
ext: type 88                                       ;Yes - Type X
lfbtn20: match 25,1,,"Free:",keyf1,nul             ;Check for status line

;       -------------------- Right button ------------------------

rtbtn: match 24,4,,"FILE ATTRIB",can,rtbtn2        ;Check for file attributes prompt
rtbtn2: match 24,4,,"DIR ATTRIB",can,rtbtn3        ;Check for directory attributes prompt
rtbtn3: match 24,3,,"BACKUP",can,rtbtn4            ;Check for backup prompt
rtbtn4: match 24,3,,"COMMAND",can,rtbtn5           ;Check for command prompt
rtbtn5: match 24,4,,"COPY TAGGED",can,rtbtn6       ;Check for copy tagged prompt
rtbtn6: match 24,3,,"DRIVE CHANGE",can,rtbtn7      ;Check for drive change prompt
rtbtn7: match 24,3,,"DELETE",can,rtbtn8            ;Check for delete tagged prompt
rtbtn8: match 24,3,,"DIRECTORY",can,rtbtn9         ;Check for directory add/delete prompt
rtbtn9: match 24,5,,"FIND FILE",can,rtbtn10        ;Check for find file prompt
rtbtn10: match 25,1,,"Files",can,rtbtn11           ;Check for program limits prompt
rtbtn11: match 24,4,,"MOVE",can,rtbtn12            ;Check for move tagged files prompt
rtbtn12: match 24,4,,"RENAME",can,rtbtn13          ;Check for rename prompt
rtbtn13: match 24,3,,"SELECT",can,rtbtn14          ;Check for select/sort prompt
rtbtn14: match 24,3,,"EXECUTE",can,rtbtn15         ;Check for execute files prompt
rtbtn15: match 1,2,,"Esc:",can,rtbtn16             ;Check for help menu
rtbtn16: match 24,3,,"COLOR",can,rtbtn17           ;Check for color changes prompt
rtbtn17: match 24,1,,"ESC",can,rtbtn18             ;Check for linking directories option
rtbtn18: match 24,3,,"F10",can,rtbtn19             ;Check for macros option
rtbtn19: match 22,3,,"CR",can,rtbtn20              ;Check for change editor/lister option
can: type esc                                      ;Yes - Type escape
rtbtn20: match 25,1,,"Free:",keyf2,nul             ;Check status line

;       --------------------- Both buttons ------------------------

;       If status line execute mouse menu else nothing

btbtn:  match 25,1,,"Free:",mmen,nul               ;Check status line

;       -------------------- Mouse left -----------------------

lfmot: match 25,1,,"Free:",lchar,lfmot2            ;Check status line
lfmot2: match 25,1,,"Command",lchar,nul            ;Check for list prompt
lchar: type 0,75                                   ;Yes - Move left

;       ------------------- Mouse right -----------------------

rtmot: match 25,1,,"Free:",rchar,rtmot2            ;Check status line
rtmot2: match 25,1,,"Command",rchar,nul            ;Check for list prompt
rchar: type 0,77                                   ;Yes - Move right

;       --------------------- Mouse up -----------------------

upmot: match 25,1,,"Free:",uline,upmot2            ;Check status line
upmot2: match 25,1,,"Command",uline,upmot3         ;Check for list prompt
upmot3: match 24,1,,"ESC",uline,upmot4             ;Check for linking directories option
upmot4: match 24,3,,"F10",uline,upmot5             ;Check for macros prompt
upmot5: match 22,3,,"CR",uline,upmot6              ;Check for change editor/lister prompt
uline: type 0,72                                   ;Yes - Move up one file
upmot6: match 24,3,,"DIRECTORY",updir,nul          ;Check for directory add/delete/change prompt
updir: type 0,59                                   ;Yes - Move up one directory

;       ------------------- Mouse down -----------------------

dnmot: match 25,1,,"Free:",dline,dnmot2            ;Check status line
dnmot2: match 25,1,,"Command",dline,dnmot3         ;Check for list prompt
dnmot3: match 24,1,,"ESC",dline,dnmot4             ;Check for linking directories option
dnmot4: match 24,3,,"F10",dline,dnmot5             ;Check for macros prompt
dnmot5: match 22,3,,"CR",dline,dnmot6              ;Check for change editor/lister prompt
dline: type 0,80                                   ;Yes - Move down one file
dnmot6: match 24,3,,"DIRECTORY",dndir,nul          ;Check for directory add/delete/change prompt
dndir: type 0,60                                   ;Yes - Move down one directory

; Mouse menu - selected by pressing both buttons

mmen:   popup 1,1,048
        text "╔═════════ MOUSE MENU ═════════╗"
        text "║  Cancel Menu    Exit Program ║"
        text "║   File Menu         Help     ║"
        text "║ Directory Menu   Mouse Help  ║"
        text "║   Drive Menu    Screen Menu  ║"
        text "║  Key Commands   Program Lmts ║"
        text "║     Macros       Dir Links   ║"
        text "║ Change Editor/Lister Options ║"
        text "╚══════════════════════════════╝"
        select 2,2,16
        select 3,2,16,fmen
        select 4,2,16,dmen
        select 5,2,16,drmen
        select 6,2,16,key?
        select 7,2,16,macmen
        select 8,2,30,keyctrlE
        select 2,18,14,keyf9
        select 3,18,14,keyf10
        select 4,18,14,mousehlp
        select 5,18,14,cmen
        select 6,18,14,keyctrlL
        select 7,18,14,lnkmen
        pend

; Directory menu selected from mouse menu

dmen:  popup 1,33,072
        text "╔══════════ DIRECTORY MENU ═══════════╗"
        text "║   Cancel Menu           Backup      ║"
        text "║ Modify Directory   Directory Rescan ║"
        text "║ Volume ID Toggle   Change Attribute ║"
        text "║  Root Directory     Last Directory  ║"
        text "║    Scroll Up         Scroll Down    ║"
        text "║  Top Directory     Bottom Directory ║"
        text "╚═════════════════════════════════════╝"
        select 2,2,18
        select 3,2,18,keyctrlD
        select 4,2,18,keyctrlV
        select 5,2,18,keyf3
        select 6,2,18,keyf7
        select 7,2,18,keyf5
        select 2,21,18,keyB
        select 3,21,18,keyaltR
        select 4,21,18,keyctrlA
        select 5,21,18,keyf4
        select 6,21,18,keyf8
        select 7,21,18,keyf6
        pend

; File menu selected from mouse menu

fmen: popup 1,1,072
        text "╔════ FILE MENU ═══╗"
        text "║   Cancel Menu    ║"
        text "║  List All Files  ║"
        text "║   Execute File   ║"
        text "║    View File     ║"
        text "║    Edit File     ║"
        text "║     Tag File     ║"
        text "║   Move Tagged    ║"
        text "║  Delete Tagged   ║"
        text "║  Print Tagged    ║"
        text "║   Copy Tagged    ║"
        text "║ Attribute Tagged ║"
        text "║    Find File     ║"
        text "║   Rename File    ║"
        text "║  Tag All Files   ║"
        text "║   Untag A File   ║"
        text "║ Untag All Files  ║"
        text "║  Select & Sort   ║"
        text "║  Enter Command   ║"
        text "║     Page Up      ║"
        text "║    Page Down     ║"
        text "║    First File    ║"
        text "║    Last File     ║"
        text "╚══════════════════╝"
        select 2,2,18
        select 3,2,18,keycr
        select 4,2,18,keyX
        select 5,2,18,keyL
        select 6,2,18,keyE
        select 7,2,18,keyT
        select 8,2,18,keyM
        select 9,2,18,keyaltD
        select 10,2,18,keyP
        select 11,2,18,keyaltC
        select 12,2,18,keyA
        select 13,2,18,keyF
        select 14,2,18,keyR
        select 15,2,18,keyaltT
        select 16,2,18,keyU
        select 17,2,18,keyaltU
        select 18,2,18,keyaltS
        select 19,2,18,keyC
        select 20,2,18,keypgup
        select 21,2,18,keypgdn
        select 22,2,18,keyhm
        select 23,2,18,keyend
        pend

; Color menu selected from mouse menu

cmen:  popup 12,27,072
        text "╔═ SCREEN MENU ═╗"
        text "║  Cancel Menu  ║"
        text "║ Color Changes ║"
        text "║ Screen Refrsh ║"
        text "║ EGA 43/25 Lns ║"
        text "╚═══════════════╝"
        select 2,2,15
        select 3,2,15,keyaltK
        select 4,2,15,keyS
        select 5,2,15,keyaltE
        pend

; Drive menu selected from mouse menu

drmen: popup 1,1,072
     text "╔══ DRIVE MENU ═══╗"
     text "║   Cancel Menu   ║"
     text "║ Select Drive A: ║"
     text "║ Select Drive B: ║"
     text "║ Select Drive C: ║"
     text "║ Select Drive D: ║"
     text "║ Show Free Space ║"
     text "╚═════════════════╝"
     select 2,2,17
     select 3,2,17,keyDA
     select 4,2,17,keyDB
     select 5,2,17,keyDC
     select 6,2,17,keyDD
     select 7,2,17,keyaltF
     pend

; Mouse help menu selected from mouse menu

mousehlp: popup 1,1,064
        text "╔════════════════ MOUSE  HELP ═════════════════╗"
        text "║                                              ║"
        text "║                 Cancel Menu                  ║"
        text "║                                              ║"
        text "║    Left button  - Moves Up One Directory     ║"
        text "║   Right button - Moves Down One Directory    ║"
        text "║      Both buttons - Displays Mouse Menu      ║"
        text "║                                              ║"
        text "║   Moving the mouse up, down, left, or        ║"
        text "║   right will move the file cursor in the     ║"
        text "║   same direction that the mouse is moved.    ║"
        text "║                                              ║"
        text "║   When a command is selected, click the      ║"
        text "║   left button for an enter, and the right    ║"
        text "║   button for a cancel.                       ║"
        text "║                                              ║"
        text "║   When viewing a file, moving the mouse      ║"
        text "║   will scroll the text in the same           ║"
        text "║   direction that the mouse is moved.         ║"
        text "║   Exit by clicking the left button.          ║"
        text "╚══════════════════════════════════════════════╝"
        select 3,2,46
        pend

; Macros menu selected from mouse menu

macmen: popup 1,33,072
        text "╔════ MACROS MENU ════╗"
        text "║     Cancel Menu     ║"
        text "║  Alt-Function Keys  ║"
        text "║  Ctrl-Function Keys ║"
        text "║ Shift-Function Keys ║"
        text "╚═════════════════════╝"
        select 2,2,21
        select 3,2,21,keyaltf10
        select 4,2,21,keyctrlf10
        select 5,2,21,keyshftf10
        pend

; Directory links menu selected from mouse menu

lnkmen:  popup 1,33,072
        text "╔══ DIRECTORY LINKS MENU ══╗"
        text "║       Cancel Menu        ║"
        text "║     Number Key Links     ║"
        text "║   Alt-Number Key Links   ║"
        text "╚══════════════════════════╝"
        select 2,2,26
        select 3,2,26,key0
        select 4,2,26,keyalt0
        pend

;               --- Key Commands ---

keyf1: type 0,59                             ;Move up one directory
keyf2: type 0,60                             ;Move down one directory
keyf3: type 0,61                             ;Move to root directory
keyf4: type 0,62                             ;Move to last directory
keyf5: type 0,63                             ;Move to top directory
keyf6: type 0,64                             ;Move to btm directory
keyf7: type 0,65                             ;Scroll up
keyf8: type 0,66                             ;Scroll down
keyf9: type 0,67                             ;Exit in current directory
keyf10: type 0,68                            ;Display context sensitive help
keyaltf10: type 0,113                        ;Display/change alt-function key macros
keyctrlf10: type 0,103                       ;Display/change ctrl-function key macros
keyshftf10: type 0,93                        ;Display/change shift-function key macros
keypgup: type 0,73                           ;Display previous files
keypgdn: type 0,81                           ;Display next files
keyhm: type 0,71                             ;Move to first file
keyend: type 0,79                            ;Move to last file
key0: type 48                                ;Display/change number key links
keyalt0: type 0,129                          ;Display/change alt-number key links
keyA: type 65                                ;Change file attributes
keyctrlA: type 1                             ;Change directory attributes
keyB: type 66                                ;Backup
keyC: type 67                                ;Enter command
keyaltC: type 0,46                           ;Copy tagged files
keyD: type 68                                ;Drive change
keyDA: type 68,"A:",13                       ;Change to drive a:
keyDB: type 68,"B:",13                       ;Change to drive b:
keyDC: type 68,"C:",13                       ;Change to drive c:
keyDD: type 68,"D:",13                       ;Change to drive d:
keyaltD: type 0,32                           ;Delete tagged files
keyctrlD: type 4                             ;Directory add/delete
keyE: type 69                                ;Edit file
keyaltE: type 0,18                           ;EGA 43/25 line toggle
keyctrlE: type 5                             ;Editor/Lister change
keyF: type 70                                ;Find file
keyaltF: type 0,33                           ;Free on other drive
key?: type 63                                ;Display help screen
keyaltK: type 0,37                           ;Color changes
keyL: type 76                                ;List indicated file
keyctrlL: type 12                            ;Display program limits
keyM: type 77                                ;Move tagged file
keyP: type 80,"LPT1:",13                     ;Print tagged files
keyR: type 82                                ;Rename file
keyaltR: type 0,19                           ;Directory rescan
keyS: type 83                                ;Redraw screen
keyaltS: type 0,31                           ;Select and sort files
keyT: type 84                                ;Tag file
keyaltT: type 0,20                           ;Tag all files
keyU: type 85                                ;Untag file
keyaltU: type 0,22                           ;Untag all files
keyctrlV: type 22                            ;Volume ID toggle
keyX: type 88,13                             ;Execute file
keyaltX: type 0,45                           ;Execute file with I/O redirect
keycr: type 13                               ;List all files

nul: nothing

; The end